(tar-mode-write-file): Clear buffer's own modified flag

after clearing the ones listed within it.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index a444a565fefb4c6bcc8339c0e285a58a3af2fccf..5776680d6cbf62344551436b5be46b7e92ff3479 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -1196,7 +1196,8 @@ Leaves the region wide."
        ;; I suppose this is run in a context where changing the buffer is bad.
        ;; (tar-pad-to-blocksize)
        (write-region tar-header-offset (point-max) buffer-file-name nil t)
-       (tar-clear-modification-flags))
+       (tar-clear-modification-flags)
+       (set-buffer-modified-p nil))
     (narrow-to-region 1 tar-header-offset))
   ;; return T because we've written the file.
   t)